home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
dragon's riddles
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
298 lines
0 gosub60000
1 rem * the dragon's 7 riddles *
2 rem * by meredith jones frummer & thomas f. trocco, 12/83
5 rem *
6 goto200
10 :
20 :
30 :
40 :
50 :
60 :
70 :
80 :
90 :
100 :
200 poke53280,7:poke53281,7
220 zz=20:gosub1340:print""
240 print"[217]ou are walking alone in an enchanted forest when you are captured";
260 print" by an evil dragon named [195][200][210][217][211][207][208][200][217][204][193][216][146]."
280 print" [212]he dragon will ask you seven riddles with 20 chances to answer.";
300 print" [201]f you answerall 7 correctly before your chances are up, you";
320 print" will escape with the dragon's treasure.
340 [153][166]9)"press stopreturnwait to go on
360 geta$:ifa$<>chr$(13)then360
380 gosub1340:print"[201]f you lose...":print"[195][200][210][217][211][207][208][200][217][204][193][216][146] eats you!
400 [153]"(NULL)hen lenleft$(NULL)(NULL)(NULL)(NULL)(NULL)left$(NULL)(NULL)atn(NULL)wait asks you for an answertype in your answer";
420 [153]" and hit stopreturnwait.
440 print"[196]on't use 'a','an', or 'the' in your answers: chrysophylax[146]";
460 print" isn't very smart!!
480 [153][166]8)"press stopreturnwait to play.
500 geta$:ifa$<>chr$(13)then500
520 gosub1340:print" [205]y first riddle!
540 [153]"(NULL)ou can bend it, but it's made from trees.
560 input"[201]t is";a1$
580 ifa1$=chr$(80)+chr$(65)+chr$(80)+chr$(69)+chr$(82)thengosub1540:gosub1400:goto620
600 gosub1720:zz=zz-1:gosub1400:goto520
620 gosub1340:print" [205]y second riddle!!
640 [153]"right$t can wear rock down, but it comes fromrock itself.
660 input"[201]t is";a2$
680 ifa2$=chr$(83)+chr$(65)+chr$(78)+chr$(68)thengosub1540:gosub1400:goto720
700 gosub1720:zz=zz-1:gosub1400:goto620
720 gosub1340:print" [205]y third riddle!!!
740 [153]"atnnimals and people breathe in what 'they' breathe out."
760 [133]"(NULL)hat are 'they'";a3$
780 [139]a3$[178][199](80)[170][199](76)[170][199](65)[170][199](78)[170][199](84)[170][199](83)[167][141]1540:[141]1400:[137]820
800 [141]1720:zz[178]zz[171]1:[141]1400:[137]720
820 [141]1340:[153]" (NULL)y fourth riddle!!!!
840 print"[215]hat walks on four feet in the morning, two feet during the ";
860 print"day, and three feet at night"
880 input"";a4$
900 ifa4$=chr$(77)+chr$(65)+chr$(78)thengosub1540:gosub1400:goto980
920 ifa4$=chr$(80)+chr$(69)+chr$(79)+chr$(80)+chr$(76)+chr$(69)thengosub1540:gosub1400:goto980
940 ifa4$=chr$(72)+chr$(85)+chr$(77)+chr$(65)+chr$(78)+chr$(83)thengosub1540:gosub1400:goto980
960 gosub1720:zz=zz-1:gosub1400:goto820
980 gosub1340:print" [205]y fifth riddle!!!!!
1000 [153]"(NULL)hat can you feel that you can't touch"
1020 [133]"";a5$
1040 [139]a5$[178][199](72)[170][199](85)[170][199](78)[170][199](71)[170][199](69)[170][199](82)[167][141]1540:[141]1400:[137]1120
1060 [139]a5$[178][199](67)[170][199](79)[170][199](76)[170][199](68)[167][141]1540:[141]1400:[137]1120
1080 [139]a5$[178][199](80)[170][199](65)[170][199](73)[170][199](78)[167][141]1540:[141]1400:[137]1120
1100 [141]1720:zz[178]zz[171]1:[141]1400:[137]980
1120 [141]1340:[153]" (NULL)y sixth riddle!!!"
1140 [153]"(NULL)hat falls without breaking?"
1160 [133]"";a6$
1180 [139]a6$[178][199](82)[170][199](65)[170][199](73)[170][199](78)[167][141]1540:[141]1400:[137]1220
1200 [141]1720:zz[178]zz[171]1:[141]1400:[137]1120
1220 [141]1340:[153]" (NULL)y last riddle!!!"
1240 [153]"(NULL)hat has no beginning and no end?"
1260 [133]"";a7$
1280 [139]a7$[178][199](67)[170][199](73)[170][199](82)[170][199](67)[170][199](76)[170][199](69)[167][137]2140
1300 [139]a7$[178][199](82)[170][199](76)[170][199](78)[170][199](71)[167][137]2140
1320 [141]1720:zz[178]zz[171]1:[141]1400:[137]1220
1340 [143] *** title subroutine ***
1350 [153]"load"[166]9)" "
1360 [153][166]9)" the dragon's seven "
1370 [153][166]9)" riddles "
1380 [153][166]9)" ":[142]
1400 [143] *** # of guesses subroutine ***
1410 [153]""[163]255)[163]110)
1420 [139]zz[178]1[167][153]" (NULL)ou have only one guess remaining!!"
1440 [139]zz[178]0[167][137]1960
1460 [139]zz[179][177]1[167][153]" (NULL)ou have";zz;"guesses remaining."
1480 [153][166]8)"press stopreturnwait to go ononon
1500 geta$:ifa$<>chr$(13)then1500
1520 return
1540 rem *correct ans. sound subroutine*
1550 print" [212]hat's correct!!"
1560 poke54276,17:fora=15to0step-1:poke54296,a:poke54273,86:forb=1to25:nextb,a
1570 poke54276,8:poke54296,15
1580 poke54276,0:poke54296,0:poke54273,0
1590 return
1720 rem *wrong answer sound subroutine*
1730 print" [212]hat's incorrect!!"
1740 poke54296,15
1750 fort=1to15:poke54287,20:poke54290,8:poke54290,129:poke54290,128:next
1760 poke54296,0
1765 s=54272:fore=stos+28:pokee,0:next
1770 return
1960 rem *game end explosion subroutine*
1970 print"[147][217]ou have been eaten!!!"
1980 poke54276,15:poke54276,129:poke54273,91:ford=15to0step-1:poke54296,d
1990 poke53281,1:poke53280,2:fore=1to70:next:poke53280,e:next
2000 poke54276,0:poke54296,0:poke53280,7:poke53281,7
2060 print"[208]lay again (y/n)?"
2080 geta$:ifa$="[217]"thenrestore:run
2100 ifa$="n"thenprint"[147]":poke53280,6:poke53281,14:goto63000
2110 geta$:ifa$="y"thenrestore:run
2120 goto2080
2140 print"[147]"spc(8);" [217]ou have beaten the"
2141 printspc(8)" "
2145 printspc(8)" dragon and have won"
2146 printspc(8)" "
2147 printspc(8)"its magic music box!"
2150 gosub21700
2260 print"[208]lay again (y/n)?"
2280 geta$:ifa$="y"thenrestore:run
2300 ifa$="n"thenprint"[147]":poke53280,6:poke53281,14:goto63000
2320 goto2280
21700 rem *** swan lake subroutine ***
21701 fr=3520:rem *note 'a' in top oct*
21702 co=2^(1/12)
21703 fori=1to9:fr=fr/co:next
21704 ss=16777216
21705 cs=1022730
21706 fc=ss/cs
21707 dimf(7,11)
21708 fori=0to11
21709 s=fr*fc
21710 forj=7to0step-1:f(j,i)=s:s=s/2
21711 next
21712 fr=fr*co
21713 next
21714 sid=54272
21715 voice=0:oct=3:wave=32
21716 vm=7:hi=256
21717 fori=0to23:pokesid+i,0:next
21718 pokesid+24,15+16
21719 reada,d,s,r,pw,c,re
21720 fori=0to2:index=sid+i*vm
21721 pokeindex+5,a*16+d
21722 pokeindex+6,s*16+r
21723 pokeindex+2,pwand 255
21724 next
21725 data0,10,0,0,800,2000,15
21726 pokesid+23,7+re*16
21727 ch=int(c/8):cl=c-ch*8
21728 pokesid+21,cl:pokesid+22,ch
21729 pokeindex+3,pw/hi
21730 readtempo
21731 readoct,sem,dur:ifoct<0goto21740:rem *** read note and exit if end ***
21732 frq=f(oct,sem)
21733 fh=int(frq/hi):fl=frq-fh*hi
21734 index=sid+voice*vm
21735 pokeindex,fl:pokeindex+1,fh
21736 pokeindex+4,wave:pokeindex+4,wave+1
21737 voice=voice+1:ifvoice>2thenvoice=0
21738 fori=1todur*tempo:next
21739 goto21731
21740 fori=1to1000:next
21741 pokesid+24,0:return
21742 data80:rem *** tempo ***
21743 rem *** measure 1 ***
21744 data5,2,8
21745 data4,7,2
21746 data4,9,2
21747 data4,10,2
21748 data5,0,2
21749 rem *** measure 2 ***
21750 data5,2,6
21751 data4,10,2
21752 data5,2,6
21753 data4,10,2
21754 rem *** measure 3 ***
21755 data5,2,6
21756 data4,7 ,2
21757 data4,10,2
21758 data4,7 ,2
21759 data4,3 ,2
21760 data4,10,2
21761 rem *** measure 4 ***
21762 data4,7,10
21763 data5,0,2
21764 data4,10,2
21765 data4,9,2
21766 rem *** measure 5 ***
21767 data5,2,8
21768 data4,7,2
21769 data4,9,2
21770 data4,10,2
21771 data5,0,2
21772 rem *** measure 6 ***
21773 data5,2,6
21774 data4,10,2
21775 data5,2,6
21776 data4,10,2
21777 rem *** measure 7 ***
21778 data5,2,6
21779 data4,7 ,2
21780 data4,10,2
21781 data4,7 ,2
21782 data4,3 ,2
21783 data4,10,2
21784 rem *** measure 8 ***
21785 data4,7,12
21786 data4,7 ,4
21787 rem *** measure 9 ***
21788 data4,9 ,4
21789 data4,10,4
21790 data5,0,4
21791 data5,2 ,2
21792 data5,3 ,2
21793 rem *** measure 10 ***
21794 data5,5,6
21795 data5,3,2
21796 data5,2,4
21797 data5,3 ,2
21798 data5,5 ,2
21799 rem *** measure 11 ***
21800 data5,7,6
21801 data5,5,2
21802 data5,3,4
21803 data5,5